home *** CD-ROM | disk | FTP | other *** search
/ CD-ROM Data 2005 May / CD Rom Data Mayıs 2005.iso / Media / VideoMix.dcr / script_3_script_VideoMix_IG.ls < prev    next >
Encoding:
Text File  |  2005-04-27  |  441 b   |  26 lines
  1. global Videolar, Videox, VMetinler
  2.  
  3. on mouseUp me
  4.   cs = the currentSpriteNum
  5.   if sprite(cs).visible = 0 then
  6.     exit
  7.   end if
  8.   if cs = 10 then
  9.     Istikamet = -1
  10.   else
  11.     Istikamet = 1
  12.   end if
  13.   Videox = Videox + Istikamet
  14.   VGoster()
  15.   if Videox = Videolar.count then
  16.     sprite(11).visible = 0
  17.   else
  18.     sprite(11).visible = 1
  19.   end if
  20.   if Videox = 1 then
  21.     sprite(10).visible = 0
  22.   else
  23.     sprite(10).visible = 1
  24.   end if
  25. end
  26.